home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 134 / Tiger_Disk_134_20xx_Tiger-Crew-Disk_de_Side_B.d64 / virus checker[t] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 9 rem"[204]
  2. 10 [151]808,225:[151]768,226:[151]769,252
  3. 98 [151]768,226:[151]769,252
  4. 100 [151] 53280,0:[151] 53281,0
  5. 105 cl$[178][199](147):w$[178][199](0):q[178]144
  6. 110 [134] da(32),v1(q),v2(q),fi$(q),tr(q),se(q),vf$(q),vt(q),vs(q),d1(q),d2(q)
  7. 115 [129] i[178]1 [164] 32:[135] da(i):[130]
  8. 120 [153] cl$"tide-virus-cleaner v2. code by tomz/tide":[153]:[153]
  9. 125 [153]"         1.wait scan for virus.":[153]
  10. 130 [153]"         2.wait list infected programs.":[153]
  11. 135 [153]"         3.wait clean disk.":[153]
  12. 140 [153]"         4.wait quit program.":[153]:[153]
  13. 141 [153]"f e e l...........the...........opentclr i dsys e"
  14. 144 [151]198,0:[146]198,1
  15. 145 [161] a$:[139] a$[178]" " [137] 145
  16. 150 [153] a$:[145] [197](a$) [137] 160,310,330,360
  17. 155 [137] 145
  18. 160 [141] 390:[139] f [167] [153] a2$:[141] 375:[137] 120
  19. 165 [159] 1,8,15,"i":[159] 2,8,2,"#":[153]:[153]"scanning for virus...first pass"
  20. 170 tr[178]18:se[178]1:fz[178]0
  21. 175 [152]1,"u1 2 0 18";se:sx[178]se
  22. 180 [161]#2,a$,b$
  23. 185 tr[178][198](a$[170]w$):se[178][198](b$[170]w$)
  24. 190 [129] bp[178]2 [164] 226 [169] 32
  25. 195 [152]1,"b-p 2";bp
  26. 200 [161]#2,a$:[139] ([198](a$[170]w$)[175]15)[179][177]2 [167] [130] bp:[137] 225
  27. 205 fz[178]fz[170]1:[161]#2,a$,b$:tr(fz)[178][198](a$[170]w$):se(fz)[178][198](b$[170]w$)
  28. 210 fi$(fz)[178]" ":d1(fz)[178]sx:d2(fz)[178]bp[170]1
  29. 215 [129] i[178]1 [164] 16:[161]#2,a$:fi$(fz)[178]fi$(fz)[170]a$:[130]
  30. 220 [153]".";:[130]
  31. 225 [139] tr[179][177]0 [137] 175
  32. 230 [153]:[139] fz[178]0 [167] [153]"infected bloks in prg on disk.":[137] 285
  33. 235 [153]:[153]"scanning files(each'.'is a file)"
  34. 240 vz[178]0:z[178]0
  35. 245 z[178]z[170]1
  36. 250 [152]1,"u1 2 0";tr(z);se(z)
  37. 255 [161]#2,a$,b$:ft[178][198](a$[170]w$):fs[178][198](b$[170]w$):[161]#2,a$,a$
  38. 260 [129] i[178]1 [164] 32:[161]#2,a$:a[178][198](a$[170]w$)
  39. 265 [139] a[178]da(i) [167] [130] i:[137] 290
  40. 270 i[178]32:[130] i
  41. 275 [153]".";:[139] z[179][177]fz [137] 245
  42. 280 [139] vz[178]0 [167] [153]:[153]:[153]"no virus detected in directory"
  43. 285 [160] 2:[160] 1:[141] 375:[137] 120
  44. 290 [153]"virus clean"fi$(z)"!"
  45. 295 vz[178]vz[170]1:vf$(vz)[178]fi$(z):vt(vz)[178]tr(z):vs(vz)[178]se(z)
  46. 300 v1(vz)[178]d1(z):v2(zv)[178]d2(z)
  47. 305 [137] 275
  48. 310 [153]cl$:[139] vz[178]0 [167] [153]"no virus detected on disk":[141]375:[137]120
  49. 315 [153]"program cleaned:":[153]
  50. 320 [129] i[178]1 [164] vz:[153] vf$(i):[130]
  51. 325 [141] 375:[137] 120
  52. 330 [141] 390:[139] f [167] [153] a2$:[141] 375:[137] 120
  53. 335 [153] cl$"0";:[159] 1,8,0,"$":[151]781,1:[158] 6478:[161] a$,a$,a$,a$
  54. 340 [129] i[178]1 [164] 7:[161] a$,b$,c$,d$:[153] a$b$c$d$;:[130]:[153]:[161] a$,a$,a$,b$
  55. 345 [139] st [167] [158] 65484:[137] 355
  56. 350 [153] [198](a$[170]w$)[170]256[172][198](b$[170]w$);:[137]340
  57. 355 [160] 1:[141] 375:[137] 120
  58. 360 [159] 1,8,15,"i0":[160] 1:[158] 64738
  59. 365 [131] 031,008,194,007,158,194,040,052,051,041,170,194,040,052,052,041
  60. 370 [131] 172,050,053,054,170,052,056,058,086,073,082,085,083,000,000,000
  61. 375 [153]:[153]:[153]"press return.":[151] 1 98,0
  62. 380 [161] a$:[139] a$[179][177][199](13)[137] 380
  63. 385 [142]
  64. 390 f[178]1:[159] 1,8,15,"i":[132]1,a1$,a2$,a3$,a4$:[160]1:[139] a1$[178]"00" [167] f[178]0
  65. 395 [142]
  66.